From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 10 Feb 2024 08:35:18 +0000 (+0200)
Subject: Run 'read-only-mode-hook' when visiting a file that is not writable
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2604
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=59b849d1eaffb8babb208f6a39c5e0dbc73e3127;p=emacs.git

Run 'read-only-mode-hook' when visiting a file that is not writable

* lisp/files.el (after-find-file): Run 'read-only-mode-hook'
when the visited file is not writable.  (Bug#68648)
---

diff --git a/lisp/files.el b/lisp/files.el
index 229771810fb..f67b650cb92 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2747,6 +2747,10 @@ Fifth arg NOMODES non-nil means don't alter the file's modes.
 Finishes by calling the functions in `find-file-hook'
 unless NOMODES is non-nil."
   (setq buffer-read-only (not (file-writable-p buffer-file-name)))
+  ;; The above is sufficiently like turning on read-only-mode, so run
+  ;; the mode hook here by hand.
+  (if buffer-read-only
+      (run-hooks 'read-only-mode-hook))
   (if noninteractive
       nil
     (let* (not-serious